home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK11⁄89.cpt / Command Examples / background_2810.txt next >
Text File  |  1989-11-02  |  3KB  |  139 lines
  1. -- background: 2810 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Maint Bg
  6. ----- HyperTalk script -----
  7. on newCard
  8.   tabKey
  9. end newCard
  10.  
  11.  
  12. -- part 3 (button)
  13. -- low flags: 00
  14. -- high flags: 2000
  15. -- rect: left=481 top=22 right=43 bottom=509
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 11045 / 11045
  18. -- text alignment: 1
  19. -- font id: 3
  20. -- text size: 9
  21. -- style flags: 256
  22. -- line height: 12
  23. -- part name: New Button
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   play "hastalavista"
  27.   --repeat while the sound is not "done"
  28.   --wait 1 sec
  29.   go to card id 5341 of stack "HOME"
  30.   --end repeat
  31. end mouseUp
  32.  
  33.  
  34.  
  35.  
  36. -- part 4 (button)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=257 top=318 right=340 bottom=300
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 22308 / 22308
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Multi-Next
  48. ----- HyperTalk script -----
  49. on mouseDown
  50.   go to next card of this bkgnd
  51.   put the ticks into tickHolder
  52.   repeat until (the mouse is up)
  53.     if (the ticks - tickHolder) > 30
  54.     then
  55.     go to next card of this bkgnd
  56.     put the ticks into tickHolder
  57.   end if
  58. end repeat
  59. end mouseDown
  60.  
  61.  
  62.  
  63. -- part 5 (button)
  64. -- low flags: 00
  65. -- high flags: 0000
  66. -- rect: left=215 top=318 right=340 bottom=258
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 19381 / 19381
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Multi-Prev
  75. ----- HyperTalk script -----
  76. on mouseDown
  77.   go to prev card of this bkgnd
  78.   put the ticks into tickHolder
  79.   repeat until (the mouse is up)
  80.     if (the ticks - tickHolder) > 30
  81.     then
  82.     go to prev card of this bkgnd
  83.     put the ticks into tickHolder
  84.   end if
  85. end repeat
  86. end mouseDown
  87.  
  88.  
  89.  
  90. -- part 6 (button)
  91. -- low flags: 00
  92. -- high flags: 0000
  93. -- rect: left=469 top=303 right=340 bottom=509
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 14953 / 14953
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Return
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   pop card
  105. end mouseUp
  106.  
  107.  
  108.  
  109. -- part 8 (field)
  110. -- low flags: 00
  111. -- high flags: 0000
  112. -- rect: left=83 top=31 right=51 bottom=395
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 1280
  119. -- line height: 16
  120. -- part name: Title
  121. ----- HyperTalk script -----
  122. on closeField
  123.   set the name of this card to fld "title"
  124. end closeField
  125.  
  126.  
  127. -- part 9 (field)
  128. -- low flags: 00
  129. -- high flags: 0000
  130. -- rect: left=83 top=61 right=145 bottom=396
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 0
  134. -- font id: 3
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: definition
  139.